$file1 = "snps_hapmap";
$file2 = "rsids_fwd_emerge";
chomp $file1;
chomp $file2;
open(WRBUFF,">excluded_heu_obs");
open(BUFF1,$file1);
open(BUFF2,$file2);
while($line = <BUFF1>)
{
	$line =~ s/\n//g;
	$line =~ s/\r//g;
	$line =~ s/\t//g;
	$line =~ s/\s//g;	
	$hash1{$line} = 1;
}
while($line = <BUFF2>)
{
        $line =~ s/\n//g;
        $line =~ s/\r//g;
        $line =~ s/\t//g;
        $line =~ s/\s//g;
        if($hash1{$line} == 1)
	{
	}
	else{  print WRBUFF $line."\n"; }
}

